-- card: 6578 from stack: in
-- bmap block id: 7059
-- flags: 0000
-- background id: 2607
-- name: 
----- HyperTalk script -----
on initCard
  global onLine
  if onLine then put "Logging user in..."
  flushInput
  pass initCard
end initCard

on cardFilled
  send mouseUp to button "OK"
end cardFilled



-- part 1 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=354 top=186 right=204 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Name
----- HyperTalk script -----
-- editable



-- part 3 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=397 top=257 right=281 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  global onLine, loginTrys, lastUserInfo
  global userName,userID,userPass,userClear,userOpt,userMachine,userCity
  global userFirst,userTimes,userLast,userLastMin,callers
  set cursor to 4
  put "Verifying user identify..."
  sendString return & "Checking UserList..." & return
  get card field "name"
  if it is empty then
    notifyUser "Blank user name not allowed..."
    send "openCard" to this card
    exit mouseUp
  end if
  put it into userName
  oldUser
  if userID is empty then
    visual effect dissolve fast
    go to next card
    exit mouseUp
  end if
  if card field "password" is not userPass then
    notifyUser "Invalid user name/password..."
    send "openCard" to this card
    exit mouseUp
  end if
  timeOut 300,"hangUpWarn,hangUp"
  sendString return
  if onLine then
    add 1 to callers
    get "Caller " & callers
  else get "Local login"
  put it & ": " & userName & "; on at: " & the time & "; times: " & userTimes+1 & "; from: " & userCity into lastUserInfo
  put lastUserInfo
  sendString "Last on: " & userLast & return
  loginUser
  sendString "Previous calls: " & userTimes & return & return
  visual effect iris open fast
  go to card id 10198
end mouseUp



-- part 4 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=353 top=234 right=246 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 5
-- style flags: 0
-- line height: 6
-- part name: Password
----- HyperTalk script -----
-- editable
-- invisible